﻿Public Class frmCarga

    'Metodo de carga del formulario, en el que se ejecuta el timer 1 y comienza con los puntos de carga no visibles

    Private Sub FormularioDeCarga_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox5.Visible = False
        PictureBox7.Visible = False
        Timer1.Start()
    End Sub

    'Metodo del temporizador 1 que espera 1500 milesimas y si está puesto el punto 1 se pone el punto en marrón y llama al Timer 2
    Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick

        If PictureBox1.Visible = True Then PictureBox2.Visible = True
        Timer2.Interval = 1500
        Timer2.Start()

    End Sub

    'Metodo del temporizador 2 que espera 1500 milesimas y si está puesto el punto 4 se pone el punto en marrón y llama al Timer 3

    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        If PictureBox4.Visible = True Then PictureBox3.Visible = True
        Timer3.Interval = 1500
        Timer3.Start()

    End Sub

    'Metodo del temporizador 3 que espera 1500 milesimas y si está puesto el punto 6 se pone el punto en marrón y llama al Timer 4

    Private Sub Timer3_Tick(sender As System.Object, e As System.EventArgs) Handles Timer3.Tick
        If PictureBox6.Visible = True Then PictureBox5.Visible = True
        Timer4.Interval = 1500
        Timer4.Start()
    End Sub

    'Metodo del temporizador 4 que espera 1500 milesimas y si está puesto el punto 8 se pone el punto en marrón y llama al Timer 5

    Private Sub Timer4_Tick(sender As System.Object, e As System.EventArgs) Handles Timer4.Tick
        If PictureBox8.Visible = True Then PictureBox7.Visible = True
        Timer5.Interval = 1500
        Timer5.Start()


    End Sub

    'Metodo del temporizador 5 que ejecuta el formulario de login y cierra el de carga
    Private Sub Timer5_Tick(sender As System.Object, e As System.EventArgs) Handles Timer5.Tick

        frm()

        Me.Close()


    End Sub

    'Metodo que detiene los timers, y llama al formulario login
    Sub frm()

        Timer1.Stop()
        Timer2.Stop()
        Timer3.Stop()
        Timer4.Stop()
        Timer5.Stop()

        frmLogin.Show()


    End Sub
End Class